15 POKE 48891, PEEK(116):A1 = PEEK(1014):A2 = PEEK(1015): FOR I = 0 TO 9: READ A: POKE 7808 +I,A: NEXT : DATA 104,168,104,166,223,154,72,152,72,96
20 PRINT D$"-MENUS"
30 PRINT D$"BLOAD COMPILER.CODE"
40 PRINT D$"PREFIX": INPUT PFX$:OP$ = "/": FOR I = 2 TO LEN(PF$) -1: IF MID$ (PF$,I,1) = "/" THEN OP$ = PF$: GOTO 50
45 NEXT
50 ITEMS = 1: DIM A$(IT): FOR I = 0 TO ITEMS: READ A$(I): NEXT : FOR I = 0 TO 2: READ M$(I): NEXT : FOR I = 0 TO 3: READ D$(I): NEXT :D$(1) = "Slot " + STR$(DS) +" Drive " + STR$(DN):UN$ = "Unable to "
10005 IF ER = 12 OR ER = 77 THEN HOME : PRINT "<CTRL-G>INSUFFICIENT MEMORY; PLEASE REBOOT": END
10010 IF EL = 20 THEN PRINT "MENUS";: GOTO 12000
10030 IF EL = 30 THEN PRINT "COMPILER.CODE";: GOTO 12000
10070 IF EL = 6540 THEN & BEEP: VTAB 23: PRINT : PRINT UN$"load "NA$"; press Return";: CALL CL: & KEY,14 +( LEN(NA$)/2),24: GOTO 6500
10072 IF EL = 6715 THEN VTAB 23: PRINT : PRINT "MACRO.SYSTEM not found; press a key ";: CALL CL: & KEY,19,24: GOTO 6710
10075 IF EL = 6720 THEN VTAB 23: PRINT : PRINT UN$"save MACRO.SYSTEM";: CALL CL: & KEY,14,24: GOTO 6688
10110 IF EL = 9170 OR EL = 9180 OR EL = 9510 THEN & BEEP: VTAB 23: PRINT : PRINT "Unable to find directory; press Return";: CALL CL: & KEY,20,24:PF$ = Y$: GOTO 9000
10115 IF EL = 9800 THEN GOSUB 13000: GET X$: GOTO 60
10120 POKE 216,0: RESUME
12000 PRINT " must be on the disk<CTRL-G>": END
13000 VTAB 23: PRINT : PRINT "Insert the MacroWorks disk; press a key ";: CALL CL: RETURN
15000 DATA "Compile Macros","Quit" : REM A
15200 DATA "Compiler Menu","Read Directory","Compile Macros" : REM M
15300 DATA "Current Directory:","Slot 6 Drive 1","Another Slot and Drive","Another Pathname": REM D